Top 10k strings from Date 2 Day (1995)(Vaxalon).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Demos / Sinclair ZX Spectrum - Demos - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 lengths of months
   2 days of week
   1 y=year-1901
   1 remove trailing spaces
   1 number of days to start of year
   1 input date
   1 day>m(month)
   1 day;"/";month;"/";year
   1 convert to day of week
   1 convert date to number of days since the start of century
   1 convert date to day
   1 add on previous months
   1 BY VAXALON - 1995
   1 "year (20th century only)?";year
   1 "month?";month
   1 "day?";day
   1 "again?",a$
   1 "Thurs","Fri","Satur","Sun"
   1 "This month has only ";m(month);" days.":
   1 "Stuff and nonsence. Give me a real date."
   1 "Mon","Tues","Wednes"
   1 "20th century starts in 1901":
   1 "20th century ends at 2000":
   1 " is a ";e$;"day"